home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / nan_m.has < prev    next >
Encoding:
Text File  |  1998-08-26  |  4.6 KB  |  239 lines
  1. *---------------------------------------
  2. *
  3. *    âiâôâVü[ê┌ô«
  4. *
  5. *    by Shiroh Nakaya
  6. *
  7. *---------------------------------------
  8.  
  9.     .cpu    68000
  10.  
  11.     .include    OSU.H
  12.  
  13.     .xdef    nan_init
  14.     .xref    pcg_data
  15.     .xref    pal_data
  16.     .xref    adpcm_data
  17.  
  18.     .text
  19.     .even
  20. *---------------------------------------
  21. *    âiâôâVü[Åëè·ë╗
  22. *
  23. nan_init:
  24.     move.w    #6,C_H_X(a1)
  25.     move.w    #32,C_H_Y(a1)
  26.     move.w    #12,C_HD_X(a1)
  27.     move.w    #64,C_HD_Y(a1)
  28.     move.w    #40,C_MD_X1(a1)
  29.     move.w    #248,C_MD_X2(a1)
  30.     move.w    #48,C_MD_Y1(a1)
  31.     move.w    #240,C_MD_Y2(a1)
  32.     move.w    #8,C_SA_F(a1)
  33.     move.w    #5,C_SSA_F(a1)
  34.     move.l    #nan_motion,C_A_DT(a1)
  35.     move.l    #nan_display,C_PCG_D(a1)
  36.     move.l    #nan_move_data,C_JOY(a1)
  37.     move.l    #nan_attack_data,C_HIT_D(a1)
  38.     move.l    #nan_se_data,C_PCM_D(a1)
  39.  
  40.     move.w    #$0000,BG_CTRL            * âXâvâëâCâgò\Īénéeée
  41.     lea.l    pcg_data,a4
  42.     adda.l    #NAN,a4
  43.     movea.l    a2,a6
  44.  
  45.     tst.w    C_COL(a1)
  46.     bne    1f
  47.     move.w    #2496-1,d1
  48. @@:
  49.     move.l    (a4)+,(a2)+
  50.     dbra    d1,@b
  51.     lea.l    9984(a4),a4
  52.     bra    2f
  53.  
  54. 1:
  55.     lea.l    9984(a4),a4
  56.     move.w    #2496-1,d1
  57. @@:
  58.     move.l    (a4)+,(a2)+
  59.     dbra    d1,@b
  60.  
  61. 2:
  62.     adda.l    #15744,a6
  63.     move.w    #160-1,d1
  64. @@:
  65.     move.l    (a4)+,(a6)+
  66.     dbra    d1,@b
  67.  
  68.     move.w    C_COL(a1),d1
  69.     add.w    d1,d1
  70.     add.w    d1,d1
  71.     lea.l    nan_palette,a4
  72.     movea.l    0(a4,d1.w),a4
  73.     move.w    #8-1,d1
  74. @@:
  75.     move.l    (a4)+,(a3)+
  76.     dbra    d1,@b
  77.  
  78.     move.w    #$0200,BG_CTRL            * âXâvâëâCâgò\Īéném
  79.     rts
  80. *---------------------------------------
  81. *    âiâôâVü[ò\Ī
  82. *
  83. nan_display:
  84.     move.w    C_M_F(a1),d0
  85.     add.w    d0,d0
  86.     move.w    display_tbl(pc,d0.w),d0
  87.     jmp    display_tbl(pc,d0.w)
  88. *---------------------------------------
  89.     .even
  90. display_tbl:
  91.     .dc.w    nan_move-display_tbl,nan_attack-display_tbl
  92.     .dc.w    nan_hit-display_tbl,nan_win-display_tbl,nan_g-display_tbl
  93.     .dc.w    nan_attack-display_tbl,nan_sa-attack_tbl,nan_sa-attack_tbl
  94.     .dc.w    nan_attack-display_tbl
  95. *---------------------------------------
  96. nan_move:
  97.     move.w    C_CNT(a1),d0
  98.     add.w    d0,d0
  99.  
  100.     tst.w    C_LR_F(a1)
  101.     bne    @f
  102.     move.w    move_tbl_right(pc,d0.w),d0
  103.     jmp    move_tbl_right(pc,d0.w)
  104. @@:
  105.     move.w    move_tbl_left(pc,d0.w),d0
  106.     jmp    move_tbl_left(pc,d0.w)
  107. *---------------------------------------
  108.     .even
  109. move_tbl_left:
  110.     .dc.w    nan_n-move_tbl_left,nan_for-move_tbl_left
  111.     .dc.w    nan_back-move_tbl_left
  112. move_tbl_right:
  113.     .dc.w    nan_n-move_tbl_right,nan_back-move_tbl_right
  114.     .dc.w    nan_for-move_tbl_right
  115. *---------------------------------------
  116. nan_attack:
  117.     move.w    C_AK_F(a1),d0
  118.     add.w    d0,d0
  119.     move.w    d0,d1
  120.     add.w    d0,d0
  121.     add.w    d1,d0
  122.     move.w    C_AM_F(a1),d1
  123.     add.w    d1,d1
  124.     add.w    d1,d0
  125.     move.w    attack_tbl(pc,d0.w),d0
  126.     jmp    attack_tbl(pc,d0.w)
  127. *---------------------------------------
  128.     .even
  129. attack_tbl:
  130.     .dc.w    low_s-attack_tbl,low_s-attack_tbl,low_t-attack_tbl
  131.     .dc.w    mid_s-attack_tbl,mid_s-attack_tbl,mid_t-attack_tbl
  132.     .dc.w    high_s-attack_tbl,high_s-attack_tbl,high_t-attack_tbl
  133.     .dc.w    nan_sa-attack_tbl,nan_sa-attack_tbl,nan_sa-attack_tbl
  134.     .dc.w    nan_ssa_s-attack_tbl,nan_ssa_s-attack_tbl,nan_ssa_t-attack_tbl
  135. *---------------------------------------
  136.     .include    nan_n.inc
  137. *---------------------------------------
  138.     .include    nan_a.inc
  139. *---------------------------------------
  140.     .include    nan_ss.inc
  141. *---------------------------------------
  142.     .include    nan_hwg.inc
  143. *---------------------------------------
  144. nan_motion:
  145.     .dc.w    4,0,15
  146.     .dc.w    5,0,25
  147.     .dc.w    6,0,35
  148.     .dc.w    0,24,24
  149.     .dc.w    7,0,40
  150. nan_attack_data:
  151.     .dc.w    8,-24,4,8,8,16,10,0,1,10
  152.     .dc.w    6,-24,8,8,16,16,25,0,2,15
  153.     .dc.w    4,0,4,8,8,16,50,0,2,20
  154.     .dc.w    0,0,8,8,16,16,30,0,1,24
  155.     .dc.w    0,0,4,8,8,16,70,0,2,40
  156. nan_move_data:
  157.     .dc.w     0, 0
  158.     .dc.w     0,-2
  159.     .dc.w     0, 2
  160.     .dc.w     0, 0
  161.     .dc.w    -2, 0
  162.     .dc.w    -2,-2
  163.     .dc.w    -2, 2
  164.     .dc.w     0, 0
  165.     .dc.w     2, 0
  166.     .dc.w     2,-2
  167.     .dc.w     2, 2
  168. nan_se_data:
  169.     .dc.l    adpcm_data+NAN01
  170.     .dc.w    $f908
  171.     .dc.w    276
  172.     .dc.w    0
  173.     .dc.l    adpcm_data+NAN01
  174.     .dc.w    $f904
  175.     .dc.w    276
  176.     .dc.w    0
  177.     .dc.l    adpcm_data+NAN02
  178.     .dc.w    $f908
  179.     .dc.w    1460
  180.     .dc.w    1
  181.     .dc.l    adpcm_data+GRID
  182.     .dc.w    $b908
  183.     .dc.w    2612
  184.     .dc.w    1
  185.     .dc.l    adpcm_data+NAN04
  186.     .dc.w    $f908
  187.     .dc.w    2178
  188.     .dc.w    1
  189.  
  190.     .dc.l    0
  191.     .dc.l    0
  192.     .dc.w    0
  193.     .dc.l    0
  194.     .dc.l    0
  195.     .dc.w    0
  196.     .dc.l    0
  197.     .dc.l    0
  198.     .dc.w    0
  199.     .dc.l    0
  200.     .dc.l    0
  201.     .dc.w    0
  202.     .dc.l    0
  203.     .dc.l    0
  204.     .dc.w    0
  205.  
  206.     .dc.l    adpcm_data+NAN03
  207.     .dc.w    $b908
  208.     .dc.w    2178
  209.     .dc.w    2
  210.     .dc.l    adpcm_data+NAN03
  211.     .dc.w    $b904
  212.     .dc.w    2178
  213.     .dc.w    2
  214.     .dc.l    adpcm_data+NAN03
  215.     .dc.w    $b904
  216.     .dc.w    2178
  217.     .dc.w    3
  218.     .dc.l    adpcm_data+NAN03
  219.     .dc.w    $f908
  220.     .dc.w    2178
  221.     .dc.w    3
  222.     .dc.l    adpcm_data+NAN03
  223.     .dc.w    $f908
  224.     .dc.w    2178
  225.     .dc.w    3
  226.  
  227.     .dc.l    adpcm_data+NAN05        * éjéné`écéoébél
  228.     .dc.w    $f908
  229.     .dc.w    2880
  230.     .dc.w    4
  231.  
  232.     .dc.l    adpcm_data+NAN06        * Åƒé┐é`écéoébél
  233.     .dc.w    482
  234.  
  235. nan_palette:
  236.     .dc.l    pal_data+NAN_C,pal_data+NAN_C+32
  237. *---------------------------------------
  238.     .end
  239.